From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 30 Apr 1997 02:13:02 +0000 (+0000)
Subject: (edt-emulation-on): Load edt-pc.el under Windows.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~81471
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=39445e62161bcaf9b905eda1e9fd325c8d1d7ee1;p=emacs.git

(edt-emulation-on): Load edt-pc.el under Windows.
---

diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el
index 6ec3dbc3f1e..18deb138d96 100644
--- a/lisp/emulation/edt.el
+++ b/lisp/emulation/edt.el
@@ -1482,8 +1482,8 @@ If FILE is nil, try to load a default file.  The default file names are
 (defun edt-emulation-on ()
   "Turn on EDT Emulation."
   (interactive)
-  ;; If using MS-DOS, need to load edt-pc.el
-  (if (eq system-type 'ms-dos)
+  ;; If using MS-DOS or Windows, need to load edt-pc.el
+  (if (memq system-type '(ms-dos windows-nt))
       (setq edt-term "pc")
     (setq edt-term (getenv "TERM")))
   ;; All DEC VT series terminals are supported by loading edt-vt100.el